home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / listing 21 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  31 lines
  1. 5 s=54272:poke s+24,15:poke s,220:poke s+1,68:poke s+5,15:poke 6+6,215
  2. 10 poke s+7,120:poke s+8,100:poke s+12,15:poke s+13,215
  3. 15 printchr$(147):v=53248:poke v+21,1
  4. 20 for s1=12288 to 12350:read q1:poke s1,q1:next
  5. 25 for s2=12352 to 12414:read q2:poke s2,q2:next
  6. 30 for s3=12416 to 12478:read q3:poke s3,q3:next
  7. 35 poke v+39,15:poke v+1,68
  8. 40 printtab(160)"ich bin die tanzmaus ![154]"
  9. 45 p=192
  10. 50 for x=0 to 347 step 3
  11. 55 rx=int(x/256):lx=x-rx*256
  12. 60 poke v,lx:poke v+16,rx
  13. 70 if p=192 then gosub 200
  14. 75 if p=193 then gosub 300
  15. 80 poke 2040,p:for t=1 to 60:next
  16. 85 p=p+1:if p>194 then p=192
  17. 90 next
  18. 95 end
  19. 100 data 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  20. 101 data 63,255,252,31,187,248,3,187,192,1,255,128,3,189,192,1,231,128,1,255,0
  21. 102 data 31,255,0,0,124,0,0,254,0,1,199,32,3,131,224,7,1,192,1,192,0,3,192,0
  22. 103 data 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  23. 104 data 63,255,252,31,221,248,3,221,192,1,255,128,3,255,192,1,195,128,1,231,3
  24. 105 data 31,255,255,0,124,0,0,254,0,1,199,0,7,1,128,7,0,204,1,128,124,7,128,56
  25. 106 data 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  26. 107 data 63,255,252,31,221,248,3,221,192,1,255,134,3,189,204,1,199,152,1,255,48
  27. 108 data 1,255,224,1,252,0,3,254,0
  28. 109 data 7,14,0,204,14,0,248,56,0,112,112,0,0,60,0,-1
  29. 200 poke s+4,129:poke s+4,128:return
  30. 300 poke s+11,129:poke s+11,128:return
  31.